home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BetsyRoss.dxr / 00063_stock pile.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1005 b   |  40 lines
  1. on beginSprite me
  2.   global stock
  3.   stock = new(script("stockobj"), shuffle())
  4. end
  5.  
  6. on mouseDown me
  7.   global stock, waste, deals
  8.   if member(sprite(me.spriteNum).memberNum).name = "backofcard" then
  9.     if stock.cards.count <> 0 then
  10.       sprite(14).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  11.       if sprite(14).visible = 0 then
  12.         sprite(14).visible = 1
  13.       end if
  14.       puppetSound(3, "deal card")
  15.       waste.append(new(script("card"), 14))
  16.       stock.cards.deleteAt(1)
  17.       if stock.cards.count = 0 then
  18.         if deals < 2 then
  19.           sprite(me.spriteNum).member = "replenish"
  20.         else
  21.           sprite(me.spriteNum).member = "stop"
  22.         end if
  23.       end if
  24.     end if
  25.   else
  26.     if member(sprite(me.spriteNum).memberNum).name = "replenish" then
  27.       stock.cards = reshuffle(waste)
  28.       deals = deals + 1
  29.       sprite(me.spriteNum).member = "backofcard"
  30.       sprite(14).visible = 0
  31.     else
  32.       nothing()
  33.     end if
  34.   end if
  35. end
  36.  
  37. on mouseLeave
  38.   checkwin()
  39. end
  40.